home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / ResCopy.cpt / ResCopy XCMD / background_3586.txt < prev    next >
Text File  |  1989-02-02  |  3KB  |  173 lines
  1. -- background: 3586 from stack: in
  2. -- bmap block id: 5040
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   send idle to bkgnd button "rescopy"
  9.   pass idle
  10. end idle
  11.  
  12. on closeCard
  13.   hide card field "help"
  14.   pass closeCard
  15. end closecard
  16.  
  17.  
  18.  
  19. -- part 11 (button)
  20. -- low flags: 00
  21. -- high flags: 2000
  22. -- rect: left=211 top=71 right=98 bottom=290
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: Help
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   visual zoom open
  34.   go to this card
  35.   show card field "Help"
  36. end mouseUp
  37.  
  38.  
  39.  
  40. -- part 13 (button)
  41. -- low flags: 00
  42. -- high flags: 2000
  43. -- rect: left=401 top=71 right=98 bottom=489
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 3
  48. -- text size: 9
  49. -- style flags: 0
  50. -- line height: 12
  51. -- part name: Return
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   visual iris close
  55.   go back
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 15 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=290 top=71 right=98 bottom=401
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 3
  68. -- text size: 9
  69. -- style flags: 0
  70. -- line height: 12
  71. -- part name: Video Stack
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   visual iris open
  75.   push card
  76.   go to card id 2118
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 17 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=129 top=71 right=98 bottom=211
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   go "home"
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 21 (button)
  101. -- low flags: 00
  102. -- high flags: 4001
  103. -- rect: left=458 top=32 right=67 bottom=492
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 195 / 195
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: ResCopy
  112. ----- HyperTalk script -----
  113. -------------------------------------------------------------------
  114. --
  115. -- Hey! Just for fun, try clicking around in ResCopy‚Äôs window
  116. -- with the Option key held down...
  117. --
  118. -------------------------------------------------------------------
  119.  
  120. on mouseUp
  121.   ResCopy                -- start up our trusty XCMD
  122. end mouseUp
  123.  
  124. on idle                  -- rotate through 4 icons to spin the beanie!
  125.   global beanieCounter
  126.   add 1 to beanieCounter
  127.   if beanieCounter < 1 then exit idle
  128.   if beanieCounter > 4 then put 1 into beanieCounter
  129.   set icon of me to ("Andrea" && beanieCounter)
  130. end idle
  131.  
  132. on mouseStillDown
  133.   Maller
  134. end mouseStillDown
  135.  
  136. on mouseWithin
  137.   Maller
  138. end mouseWithin
  139.  
  140. on mouseLeave
  141.   put 0 into beanieCounter
  142. end mouseLeave
  143.  
  144. on Maller
  145.   global stevieCounter, beanieCounter
  146.   put -2 into beanieCounter
  147.   add 1 to stevieCounter
  148.   if stevieCounter > 6 then put 1 into stevieCounter
  149.   set icon of me to ("Maller" && stevieCounter)
  150. end Maller
  151.  
  152.  
  153. -- part 23 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=23 top=71 right=98 bottom=129
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: 
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   visual dissolve
  168.   push card
  169.   go to card id 7176
  170. end mouseUp
  171.  
  172.  
  173.